home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2004 E…tra 100 Bedste Programmer / K-CD_2004_Ekstra_100_Gratis_Programmer.iso / Windows / X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WMP 8.xpl < prev    next >
Encoding:
XSetup plugin  |  2004-03-02  |  2.3 KB  |  71 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH 1"="Program Options\Built in Windows Apps\Windows Media Player"
  5. "UIPATH 2"="Internet\Windows Media Player"
  6. "UIPATH 3"="Virtual Paranoia\Phone Home"
  7. "NAME"="Automatic Updates for Windows Media Player"
  8. "LANGUAGE"="VBScript"
  9. "VERSION"="1.03"
  10. "TEXT 1"="Enable automatic update"
  11. "TEXT 2"="Enable automatic Codec downloads"
  12. "DESCRIPTION 1"="Option #1: Windows Media Player (WMP) will check from time to time if a new version of WMP is available by connecting to the microsoft.com site. If you do not want this to happen, disable the first option."
  13. "DESCRIPTION 2"="Option #2: Codecs are what Windows Media Player uses to decode encoded media files (such as MP3, MPEG, WMA etc.). If you try to play a file that Windows Media Player does not have a codec for, enabling this option will allow it to download one from Microsoft's web site automatically. Disabling this will make it ask you first."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18.  
  19. sV1="HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\WindowsMediaPlayer\DisableAutoUpdate" 'dw
  20. sV1_b="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MediaPlayer\EnableAutoUpgrade" 'str
  21.  
  22. sV2="HKCU\Software\Policies\Microsoft\WindowsMediaPlayer\NoCodecDownload" ' DW
  23.  
  24. 'Called when the Plugin is started
  25. SUB Plugin_Initialize  
  26.   i=RegReadValue(sV1)
  27.   if i=0 or IsEmpty(i) then SetUIElement 1,true
  28.  
  29.   i=RegReadValue(sV2)
  30.   if i<>1 then SetUIElement 2,true
  31. END SUB
  32.  
  33. 'Called when the Plugin should validate the Data the user has entered
  34. SUB Plugin_CheckData(ElementIndex)
  35. END SUB
  36.  
  37.  
  38.  
  39. 'Called when the Plugin should apply the changes
  40. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  Call Wrt(1,sV1)
  42.  
  43.  If GetUIElement(1)=true then
  44.     if RegValueExists(sV1_b) then Call RegDeleteValue(sV1_b)
  45.  else
  46.     Call RegWriteValue(sV1_b,"no",1)
  47.  end if
  48.  
  49.  
  50.  Call Wrt(2,sV2)
  51. END SUB
  52.  
  53. Sub Wrt(ITM,VAL)
  54.  b=GetUIElement(ITM)
  55.  if b=false then
  56.     Call RegWriteValue(VAL,1,2)
  57.  else
  58.     s=RegReadValue(VAL)
  59.     if IsEmpty(s)=false then
  60.        Call RegDeleteValue(VAL)
  61.     end if
  62.  end if
  63. end sub
  64.  
  65.  
  66.  
  67. 'Called when the Plugin is about to be removed from memory
  68. SUB Plugin_Terminate
  69. END SUB
  70.  
  71.